<%
youname1=trim(request("youname1"))
youname2=trim(request("youname2"))
youname=youname1&youname2
sex=trim(request("sex"))
nx=trim(request("nx"))
nian=trim(request("nian"))
yue=trim(request("yue"))
ri=trim(request("ri"))
hh=trim(request("hh"))
shi=trim(request("shi"))
if request("xx") <> "" then
xx=trim(request("xx"))
else
xx=trim("ab")
end if
ns=trim(request("ns"))
ji=trim(request("ji"))
bj=trim(request("bj"))
xiong=trim(request("xiong"))
xn=trim(request("xn"))
zf=trim(request("zf"))
%>
<%
youname=trim(request("youname"))
sex=trim(request("sex"))
nian=trim(request("nian"))
yue=trim(request("yue"))
ri=trim(request("ri"))
if request("xx") <> "" then
xx=trim(request("xx"))
else
xx=trim("ab")
end if
if nian="" then nian=year(now())
if yue="" then yue=month(now())
if ri="" then ri=day(now())
nl=year(now())-nian+1
%>
您出生于<%=nian%>年<%=yue%>月<%=ri%>日<%=shi%>，今年<%=nl%>岁(以下资料仅供参考)(华易姓名测试：m.k366.com/cm/)：<%=xxmess(xx)%>
<%=year(now)%>年<%=month(now)%>月<%=day(now)%>日<%=hour(now)%>:<%=minute(now)%>:<%=second(now)%> by www.k366.com
<%
function xxmess(xx)
sql="select * from xx where xx='"&xx&"'"
Set Rs=conn.Execute(sql)
if not rs.eof then
xxmess=rs("xxmess")
xxmess=Replace( xxmess, vbCrLf, " " )
else
xxmess="找不到相应血型"&xx&"资料，或是您输入有误！"
end if
end function
%><%
conn.close
set conn=nothing
%>